home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 2: Applications / Linux Cubed Series 2 - Applications.iso / editors / emacs / xemacs / xemacs-1.004 / xemacs-1 / xemacs-19.13 / lisp / eos / sun-eos-init.el < prev    next >
Encoding:
Text File  |  1995-06-16  |  1.2 KB  |  42 lines
  1. ;;; sun-eos-init.el --- Initializes the XEmacs/SPARCworks interface
  2.  
  3. ;; Copyright (C) 13 Jun 1995  Sun Microsystems, Inc.
  4.  
  5. ;; Maintainer:    Eduardo Pelegri-Llopart <eduardo.pelegri-llopart@Eng.Sun.COM>
  6. ;; Author:      Eduardo Pelegri-Llopart <eduardo.pelegri-llopart@Eng.Sun.COM>
  7. ;; Version:    1.14
  8. ;; Header:    @(#) sun-eos-init.el: v1.14 95/06/15 19:02:21
  9.  
  10. ;; Keywords:    SPARCworks EOS Era on SPARCworks initialize
  11.  
  12. ;;; Commentary:
  13.  
  14. ;; Initialize EOS
  15. ;; Please send feedback to eduardo.pelegri-llopart@eng.sun.com
  16.  
  17. ;;; Code:
  18.  
  19. ;; This stuff needs to be done at startup time
  20. (defun eos::start ()
  21.   "Initialization needed at start-up time.  Should be done by automatic
  22. loading of eos"
  23.   (if (not (and (string-match "XEmacs" emacs-version)
  24.         (eq emacs-major-version 19)
  25.         (>= emacs-minor-version 12)))
  26.       (error "Eos version %s only runs on XEmacs 19.12 and later"
  27.          eos::version))
  28.   (if (not noninteractive)
  29.       (progn
  30.     (eos::common-startup)
  31.     (eos::editor-startup)
  32.     (eos::debugger-startup)
  33.     (eos::debugger-extra-startup)
  34.     (eos::browser-startup)
  35.     (eos::menubar-startup))))
  36.  
  37. (add-hook 'before-init-hook 'eos::start t) ; append to the end of hook list
  38.  
  39. (provide 'eos-init)
  40.  
  41. ;;; sun-eos-init.el ends here
  42.